# Dit is een file die een tekst parst en omzet naar gewenst xml formaat




proc putwoord {woord index woordzelf comment lijn verbonden fileId} {

        puts $fileId "\t<$woord>\n\t\t<INDEX>$index</INDEX>\n\t\t<WOORDZELF>$woordzelf</WOORDZELF>\n\t\t<COMMENT>$comment</COMMENT>\n\t\t<LIJN>$lijn</LIJN>\n\t\t<VERBONDEN>$verbonden</VERBONDEN>\n\t</$woord>\n";

}


catch {console show}
puts stdout "Start of conversion";


variable xmlfile;

#  read the file one line at a time
set fp [open "tekst.txt" r]
# open file to write to
set filename "resultaat.xml"
set fileId [open $filename "w"];
puts $fileId "<?xml version=\"1.0\" encoding=\"ISO-8859-1\"?>\n";
puts $fileId "<CATALOG>\n";
set i 1;
set lijn 1;
while { [gets $fp data] >= 0 } {
        foreach woord $data {
                putwoord "WOORD" $i $woord commentaar $lijn $lijn $fileId;
                set i [expr $i+1];
        }
        # puts $data
        set lijn [expr $lijn+1];
}

puts $fileId "</CATALOG>\n";

close $fp
close $fileId